home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (68k).sea / pro Fit 5.0.1 demo (68k).rsrc / TEXT_129_embedded dict.txt < prev    next >
Text File  |  1996-09-30  |  1KB  |  27 lines
  1. /proFitdict 40 dict def proFitdict begin
  2. /killbu {//md /bu get //md /bu {} put}def
  3. /restorebu {//md exch /bu exch put}def
  4. /killbn {//md /bn get //md /bn {} put}def
  5. /restorebn {//md exch /bn exch put}def
  6. /Pbd {bind def}def
  7. /Pm {moveto}def /Prm {rmoveto} def /Pl {lineto}def
  8. /Ps {gsave}def /Pr {grestore}def
  9. /Pt {stroke}def 
  10. /Pw {setlinewidth}def /Pc {setrgbcolor}def 
  11. /Pg {setgray}def
  12. /Pfb {newpath dup 5 -1 roll Pm 3 1 roll 
  13. dup 3 -1 roll Pl Px Pl Px Pl fill}Pbd
  14. /Pfr {newpath 4 -1 roll dup 5 1 roll Pm 2 1 roll 
  15. dup 3 1 roll Pl Px 2 1 roll Pl Px 2 1 roll Pl fill}Pbd
  16. /Po0 {3 -1 roll exch 2 mul add 3 
  17. div 3 1 roll 2 mul add 3 div exch}Pbd
  18. /Po1 {4 copy 10 2 roll Po0 8 2 roll Po0 6 2 roll curveto}Pbd
  19. /Po2 {4 copy 3 -1 roll add 2 div 3 1 roll add 2 
  20. div exch 2 copy 6 -2 roll 10 4 roll Po1}Pbd
  21. /Pcol1 {1 exch sub 4 -1 roll mul 1 exch sub 3 1 roll}Pbd
  22. /Pcol {1 exch sub dup dup currentrgbcolor 
  23. Pcol1 Pcol1 Pcol1 setrgbcolor}Pbd
  24. /Pshow {dup dup stringwidth pop 4 -1 roll 
  25. exch sub exch length div 0 3 -1 roll ashow}Pbd
  26. end
  27.